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DECLARATIONS 
RMSEXTENDO = COMMON FILE EXTEND ROUTINE 
RMSJNL_EXTEND = Journal extend operations 
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Routine to perform common file extend processing for 
all file organizations. 


; ENVIRONMENT: : 
; STAR processor running STARLET EXEC. 


; AUTHOR: L F Laverdure, CREATION DATE: 2-Dec-1977 
; MODIFIED BY: 


; V03-015 RASO284 Ron Schaefer 29-Mar-1984 
: Fix error paths to put the area id in the STV. 


v03-014 DGB0015 Donald G. Blair 02-Mar-1984 
9) ;ocete full-length FIB to support access mode protected 
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v03-013 KPLO009 Peter Lieberwirth 25-0ct-1983 
Automatic relative extends on $PUT are broken because 
relative code puts ALQ in R6. JNL_EXTEND thinks a non-zero 
R6 contains an XAB address. Fix by forcing relative file 
automatic extend on $PUT Journal ing to just journal ALQ, 
as if no XAB is ever present. RMSREC will thereby use 
the ALQ as used by the extension logic, which is fine. 


v03-012 DASO001 David Solomon 16-Sep-1983 
| 


44 
; FACILITY: RMS32 
; ABSTRACT: 
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Journal actual final ALQ (after extend). 


RMOEXTEND 16-SEP=1984 00:19 AX/VMS Macro V04-00 p 
V04=000 TORT Pat SPL Mm eae tata te i 


Force header write thru even if ACP optimazations are 
gycoed, eh This affects RELATIVE, ISAM, and explicit 


v009 BaN000® R A Newell 99-Nov-1978 
File sharing code enhancements 
REVISION HISTORY: 


R A Newell, 9-Nov-1978 
LF Laverdure, 17-Feb-1978 
x0001 = File sharing code enhancements 


00 ; 

$50 38 3 v03-011 KPLO008 Peter Lieberwirth 27-Jul-1983 

000 60 ; more information to the EXTEND RJR entry - include 

B08 61; fields specified in the XABALL if there is an XABALL. 

4 86 ; Journal EXTENDs of alt file organizations. 

000 64; v03-010 KPL0007 Peter Lieberwirth 7=Jun-1983 
4 o ; Fix error path on lournet write after successful extend. 
0000 «67: v03-008 KPL 0006 Peter Lieberwirth 31-May-1983 
4 oe ; FALL JNL type in extend MJB. 
$000 6 : V03-007 KPLOO0S Peter Lieberwirth 26-May-1983 
4 4 : Support new RJR format. 

0000 5g : V03-006 KPL0004 Peter Lieberwirth 11-May-1983 
444 ue 3 Add omitted definitions. 
0000 76: V03-005 KPL0003 Peter Lieberwirth 1-May-1983 
B06 a 3 Fix branch out of range and typo. 
0000 +79: v03-004 KPL0002 Peter Lieberwirth 30-Apr-1983 
44 + ; Oops! Don't journal the extend unless we're journaling. 
0000 Be : V03-004 KPLO001 Peter Lieberwirth 30-Apr-1983 
4 s ; a journal ISAM EXTENDs. 
0000 85: v03-003 KBT0331 Keith B. Thompson 10-Sep-1982 
4444 6 : Remove $FRBDEF 
0000 88 : v03-002 KBT0205 Keith B. Thompson 23-Aug-1982 
ti 4 : Reorganize psects 
0000 «91: v03-001 KBT0119 Keith B. Thompson 6-Aug-1982 
444 4 : Remove the ref. a set _sifb_ adr 
0000 94; v02-012 JWHOO01 Jeffrey W. Horn 2-Mar-1982 
0000 95 ; Get rid of hack put in durring reformat that left 
444 39 : a check for invalid ALN options myers 
0000 «98: v02-011 REFORMAT Frederick E. Dee 25-Jul-1980 
8 83 + 3 This code was reformatted to my to RMS standards 
9 09 01 ; vO10 =: Cbs0070 ¢ D Saether 19-de¢-1979 
: 0 08 ; 

0 04 ; 
0000 05; 
0000 06 ; 
0000 07 ; 
0000 08 ; 
8 0 09 ; 

8 10 ; 
0 6 tie: 

0 18 ; 
0000 14 
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; IMPLICIT INPUTS: 
Contents of the FAB 
; OUTPUT PARAMETERS: 


R6 END VBN of extent + 1 

R1 STARTING VBN of extent 

RO STATUS 

R2-R5,AP destroyed 
: IMPLICIT OUTPUTS: 

None 


; COMPLETION CODES: 
Standard RMS. 
; SIDE EFFECTS: 


ene RENO COMMON EXTEND FILE ROUTINE 16-SEP-1984 90: 9:01 VAX/VMS Macro v04-00 Page 4 
v04-00 RMSEXTENDO = COMMON FILE EXTEND ROUTINE =SEP=1984 16:21:40 CRMS.SRCIRMOEXTEND.MAR; 1 (3) | 
| 
3 132 -SBTTL RMSEXTENDO = COMMON FILE EXTEND ROUTINE 
151 ; +4 
8 3 ; RMSEXTENDO = Common file extend routine | 
154 This routine performs common file extension processing 
B88 132 including the following: 
0000 13 1. Allocates a FIB to build the file extension request. 
4 138 ¢: lt.itializes the fields of the FIB based upon the type of extend. 
00 15 . Utilizes the placement information from the XAB, if provided. 
B88 160 4. Builds a descriptor for the FIB and calls RMS$F CPEXTEND 
161 to perform the extend. 
0000 106 Write thru is specified to force header write thru so that 
0000 16 EOF data will match EOF in PROLOGUE for RELATIVE and ISAM. 
0000 164 6. Deallocates the FIB and returns 
0000 165 ; 
0000 166 ; CALLING SEQUENCE: 
0000 167 ; 
44 198 BSBW RMSEXTENDO 
it 126 Alternate entry at RMSEXTENDO_ALT to perform functions 4 & 5 only 
0000 \v¢ the FIB must already have been allocated and the extend size 
0000 17 field filled in. Address of FIB must be in R1 (R5 and R6 not inputs). 
0000 \t | 
178 ; INPUT PARAMETERS: 
178 R11 IMPURE AREA address 
179 R10 IFAB address 
180 R9 IRAB/IFAB address (IFAB if entry at RMSEXTENDO) 
181 R8 RAB/FAB address (FAB if entry at RMSEXTENDO) 
136 R6 ALLOCATION XAB address, if any, else 0 
137 R5 EXTEND size in blocks 
185 
186 
187 
188 
189 
190 
i 
198 
194 
Hf 
199 
198 
199 
: 
: 
4 
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COMMON EXTEND FILE ROUTINE 16-SEP-1984 00:19:01 VAX/VMS Macro v04-00 Page 
RMSEXTENDO = COMMON FILE EXTEND ROUTINE met} 9°: 7:21:40 LMS. SRCIRMOEXTEND MAR: 1 ° 
11 RMSEXTENDO:: 
SF 5 1 MOVZB or 108¢ LENGTH,R2 3; size of FIB 
F9 9 4 1 BSBW RMSGETSPC1 ; allocate FI6 
22 E 007 14 BLBC RO,EXIT i get out on error 
08 A 15 MOVL R5,FIBSL_EXSZ(R1) : set extend size 
4: 1 0 1§ NEQ 10$ 3; branch if non-zero 
A 3 1 1 MOVZWL {fas RTDEQ(R9) ,FIBSL_EXSZ(R1) ; use default extend size 
06 = 1 01 18 NEQ 0$ ; branch if non-zero 
08 8 $4 8 108 BISB2 #FIBSM_ALDEF ,FIBSW_EXCTL(R1) ; else use volume default 
0018 1 
0018 Handle ALLOCATION XAB placement control, if any 
0018 5 
56 DS 0018 § TSTL R i; any allocation XAB? 
OF 13 0010 BEQL 15$ ; branch if none 
78 30 Bp) 8 BSBW RMSSET_XABALL 3; handle placement control 
50 €8 00 é 9 BLBS RO,EXTRD ; branch if ok 
51 00 Bp 0 MOVL R ; set up regs to return FIB 
BF 9A 0028 1 MOVZBL #F {BSC_LENGTH,R2 ; 
5D 11 69 : 3 BRB DEALL_FIB ; go deallocate FIB & get out 
002E $e ; 
002E 5 ; Set contiguous best try if specified in FOP 
OooE | 539 
35 =«€1 O03 33 15$: BBC #FABSV_CBT+FOP,(R8) ,20$ ; branch if CBT bit off 
01 €3 00 9 BBCS #F IBSV_AL - 3 ask pr tart ive for best try 
11.16 Al 0034 40 FIBSW_EXCTL(R1),30$ > and branch 
34 E1 0037 41 208: BBC #FABSU_CTG+FOP, (RB) ,3 3; branch if CTG bit off 
01 88 0038 4¢ BISB2 #FIBSM~ALCON,FiB$W  EXETLERT) : ask for contiguous extend 
70 AA DS O03F 624 TSTL FB$L_ABK(R10) : is this first allocation? 
04 12 0042 44 BNEQ : branch if not 
04 88 0044 45 B1SB2 #F IBSM_FILCON,F IBSW_EXCTL(R1) ; yes - also mark file CTG 
0048 246 30$: : Yall thru to RMSEXTENDO_ALT 


F 8 


Rnpe RTE COMMON EXTEND FILE ROUTINE fats 00: }9: :01  VAX/VMS Macro v04-00 Page 7. 
RMSEXTENDO = COMMON FILE EXTEND ROUTINE ~SEP-19 4 16:21:40 RMS.SRCIRMOEXTEND.MAR; 1 (6) | 
4 r¢ 
4 4 3+¢ 
: 29 : ; RMSEXTENDO_ALT = Entry point for automatic EXTEND on $PUT. 
4 gi : R8, RO have RAB and IRAB addresses respectively 
4 ; FIB must already have been allocated and eutend size set, addr in R1. 
og 588 7 
04 2$ RMSEXTENDO_ALT:: 
21 Al 90 004 5 ove #F1BSC_VBN,FIB$B_ALALIGN(R1) is speci ty placement near EOF 
16 Al 80 BF 88 004¢ 38 EXTND: BISB2 #FIBSM EXTEND FIBSW_EXCT (RR ) $ flag this as an EXTEND 
9091 5 ASSUME Fes RCCTL NP 0 
51 60 $B #F IBS? ORI TETHRU, (R1) 3; force header to write thru 
51 OD B238 61 PUSHL R1 ; build FIB descriptor - addr 
7E 40 BF QA Boe 66 MOVZBL #FIBSC_LENGTH,=(SP) : - length 
FFA2* 30 0058 6 SBwW RMSFCPEXTEND 3; do the EXTEND 
14 BA 005 64 POPR #*M<R2,R4> ; clean STACK and get FIB len & aa 
2050 £9 006 65 BLBC RO, ERREXT > branch if EXTEND failed 
gee fe 
Bae rt : EXTEND complete. 
006 70 ; Write AI journal Baty describing successful ai taco ten. If journal wit 
006 71; fails, back out TEND with a truncate, and fail the EXTEND. BY ft 
0063 ie : extend isn't roe out, subsequent ae ey | is in jeopardy because jo 
49t 73°; journaled tite will not look Like the file being recovered, particularly 
006 74; because the default extend behavior in recovery could be different from 
B268 eA 3 extends done here.) 
003 of : Save NEW HIGH VBN + 1 in R6, START VBN in R1, and deallocate FIB 
ae 
35 be > R2 (=size) and R4 (=addr) are input RMSJNL_EXTEND and RMSRETSPC1 
006 83° 
09 O00OAO CA 03 E11 0063 84 BBC #IFBSV_AIL, IFBSB_JNLFLG(R10),10$ ; skip if not Al jnling 
OOO000F2"EF 16 0069 85 JSB RMSJNL~EXTEND : journal the extend 
2150 +=€9 Oper 6 BLBC RO, INLERR 3; branch on error 
1C AS OOD 0072 HY 10$: PUSH Ate EXVBN(R4) 3; save nD VEN" | VBN of extent 
56 18 AG of si 007 9 ADDL dF BS _EXSZ(R4) ,R6 ; and END 
FF83" 30 OO7A 290 BSBW RMSR snes : aol eh. FB. 
02 BA Ber 91 POPR #*M<Ri Y 3: restore STARTING VBN 
7F 38 RMSSUC 
05 008 93 EXIT: RSB 
08 94 
Bee 
$8 39 : EXTEND failed. 
08 38 ; Map error, deallocate FIB, and return. 
008 99 ; 
6 § ERREXT: 
0 RMSERR EXT,R1 ; default status code 
FF75" 30 0088 4 ERRMAP: BSBW RMSMAPERR 3 map the error code 
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RAPE RIED COMMON EXTEND FILE ROUTINE 16-SEP-1984 0:49:01 Ae Macro v04-00 Page 
v04-0 RMSEXTENDO = COMMON FILE EXTEND ROUTINE “SEP=1984 16:21:4 RMS .SRCIRMOEXTEND.MAR; 1 
B 5 DEALL_FIB: 
38 be 8 § PUSHL RO ; save it 
FF7Q° D BSBW RMSRETSPC1 ; deallocate FIB 
01 Be 3 POPR #*M<RO> :; restore status 
5 9 0 SB 
9 10 
4 y} p++ 
09 18 ; Writing journal entry to describe extend failed. Just eat the extend. 
8 14 ; Recovery will notice on the next successful extend that the blocks 
:] 133 ps Sogered are not the same as originally because this extent was eaten. 
8 1§ ; It will recover by simply extending again. 
09 18 ;-- 
009 19 
009 QO JNLERR: 
009 1 RMSERR CJF,R1 ; default error message 
EE 11 0098 2 BRB ERRMAP ; deallocate FIB and return 
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EXTEND ROUTINE “SEP=1984 16:21:40 CRMS.SRCIR MOE XTEND.MAR; 1 
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9A 4 
9A 5 344 
9A gi >; RMSSET_XABALL - Wend\e ALLOCATION XAB placement control, 
a ; setting up the FIB according to the XAB inputs. 
O9A g ; INPUTS: 
9A 0 ; 
9A 1; R6 XAB address 
O9A ¢ 3 R1 FIB address 
O9A : 
009A 4 ; OUTPUTS: 
O9A 5; 
O9A § ; RO STATUS code az 
434 3 the placement control section of the FIB is initialized. 
009A 9 ; NOTE: No registers other than RO are modified. 
009A 40 ; 
OO9A 41 3-- 
009A +s 
009A 343 RMSSET_XABALL:: 
05 08 A6 05 = =E€1 QO9A 44 BBC #XABSV_CBT,XABS$B_AOP(R6) , 208 3; branch if CBT off 
01 €3 OO9F $02 BBCS #F IB$V~ALCONB ; ask primitive for contig. 
12 16 Al 00A1 346 FIBSW VEXCTLiRA), 30$ : best try and branch 
00A4 ef 
00A4 48 
0D 08 A6 O07 €E1 QODAS $09 20S: BBC #XABSV_CTG,XAB$B_AOP(R6) , 30$ ; branch if CTG off 
16 Al 01 88 O0A9 50 BISB2 #F IBSM- ALCON FIBSW_ EXCTL(R1) ; ask for contig. extend 
70 a9 «6205 «(O0AD) 351 TSTL FBSL "ABK (R Ros : is this first allocation? 
04 12 0080 328 BNEQ 3 branch if not 
16 Al 04 88 i944 $27 308 BISB2 #F IBSM_FILCON,F IBSW_EXCTL(R1) 3: yes - also mark file CTG 
00B6 335 ASSUME XABSB_ALN EQ XABS$B_AOP+1 
00B6 56 ASSUME FIBSB”ALALIGN EQ PTBSB _ALOPTS+1 
OOAO 8F AB 00B6 57 BICW3 #XABSA_CBT!XABSM_CTG,- 3: set all. options & 
20 Al 08 AG prea 43 XABSB "ROP (RO) F 16$8 _ALOPTS(R1) : alignment type 
OOSE 309 
FC 8F 93 OOBE 61 BITB #*C<XABSM_HRD! XABSM_ONC>,=- 3 any unknown bits? 
20 Al 00C1 306 F IB$B_ALOPTS(R1) 
1B 12 00C3 6 BNEQ ERRAOP : branch if yes 
26 Al OA A6 «680 (00C5 64 MOVW XABSW_VOL(R6) ,F IBSW_LOC_RVN(R1) : set relative vol. 
04 09 A6 91 OOCA 65 CMPB XABSB_ALN(R6), ;AXABST_ RFT : related file type othe! 
07 #21F OOCE 66 BLSSU 40% : branch if less 
15 1A it 67 GTRU_ ERRAL branch if greater 
0D 68 ASSUME FIB$L_LOC_ADDR EQ FIB$W_LOC_F ine 
22 Al 18 A6 7D 00D +4 ova XABSW “REITRO) FIBSW_ LOC "F OS TRI ; set related FILE ID _ 
OC A6 DO 00D 0 40$: MOVL XABSL_LOC(R6),- : set allocation location 
28 Al OODA 371 FIBSL~LOC_ADDR(R1) 
00DC og RMSSUC 
05 OODF 7 RSB 
00EO 74 
Bred o? p++ 
ODED aA : Tell about unknown AOP or ALN values 
iE 
E 80 
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SETSTV 


RMSERR AOP 


; area id as STV value 


_AID(R6) ,FABSL_STV(RB) 


RMSERR ALN 
SETSTV: 1 a XABSB 


RMOEX TEND COMMON EXTEND FILE ROUTINE SEP-19 0:19:01 VAX/VMS Macro v04-00 Page 
Nava RMSJNL_EXTEND = Journal extend operation "ese =SEP=1 1984 98: 6:21:40 CRMS.SRCIRMOEXTEND.MAR;1 . 
a -SBTTL RMSJNL_EXTEND = Journal extend operations 
F s++ 

OF 3 RMSJNL_EXTEND 

Oe ; This routine is used to journal extend operations. 

Ope ; Calling Sequence: 

OO BSBW RMSJNL_EXTEND 

Be ; Input Parameters: 

OOF R2 size of FIB to journal 

OOF R4 address of Fl 

BoE R6 address of XABALL if its present 


: Implicit Inputs: 
: R10 IFB address 
: Output Parameters: 


RO status of operation 
R5 destroyed 


Implicit Outputs: 
extend journaled 
; Side Effects: 

None. 


RMSJNL_EXTEND: 


oooo 
Coooo 
ee De es a | 
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RMSSUC : anticipate success 
55 34 AA 00 MOVL IFBSL_EXTJNLBUF (R10) ,R5 ; get extend MJB address 
.s.> 38 BEQL 15 : branch if none 
OO5SC 8F 8B PUSHR gees tt R4,R6> : ey work registers 
53 2005 ODE MOVAL MJB$T_RJR(RSS ,R3 get RJR addres 
37 OA AS 00~—s€E*1 BBC #MJBST_ INIT miBSu. FLAGS(RS 20$ ; go init RUR if required 


10$: 3 


Set flags to ur ite extend entry thru to journal and not to give file lock 
up during STALL 


BISW2 #<MJBSM_FORCE!MJBSM_SYNCH_SHARE>,MJBSW_FLAGS(RS) ; 


OA AS OA AB 


Copy XABALL fields into RJR if XABALL is present 


These fields are assumed to be in the same order in the XAB and the RJR 
Do some ASSUMEs to insure this fact: 


RRRRRR EERE EERE EEE EEE EERE EEE EERE EERE EP EEE RR EE EE PUI SS 


PPLE LE FFM AIWIIDIPINININININPINININ 2 2 OO OS | MH DOOODOOOOCOOWOWOOOOOOOOO 
BIE WN 3 O OOO NAUE WWI 0 OD NAUE WIN (OOO NAME WN 0 OD NAME WIN 0 OONAUES WIN 
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RMOEXTEND COMMON EXTEND FILE ROUTINE 197 $60-1986 90:19:01 VAX/VMS Macro V04-00 Page 
- al - Journal extend operation 5-SEP- 221: LRMS. «MAR; 
v04-000 RMSJNL_EXTEND J L d i SEP-1984 16:21:40 CRMS.SRCIRMOEXTEND.MAR; 1 
10C 447 ; 
10C re ASSUME XAB$B_ALN EQ XAB$B_AOP+1 
4 é 128 ASSUME RJRSB_LEXT_ALN €Q RJRS$B_EXT_AOP+1 
19¢ 45) ASSUME XABS$W_VOL EQ XABSB_ALN+1 
: : £26 ASSUME RJRSWLEXT_VOL £0 RJR$B_EXT_ALN+1 
19¢ 454 ASSUME XAB$L_LOC EQ XABSW_VOL+2 
318 435 ASSUME RJRSLIEXT_LOC £0 RJRSWIEXT_VOL+#2 
10¢ 189 ASSUME XABSL_ALQ EQ XABSL_LOC+4 
U LIEXT_AL JRSLIEXT_LOC+ 
} : t2 ASSUME RJRSL_EXT_ALQ  €0 RJRSL_EXT_LOC+4 
010C 460 ASSUME XABS$W_DEQ EQ XABSL_ALQ+4 
BioE 18) ASSUME RJRSW_EXT_DEQ EQ RJRSL_EXT_ALQ+4 
010¢ 188 ASSUME XABSB_AID EQ XABSW_DEQ+3 
Bioe ree ASSUME RJRSB_LEXT_AID  €Q RJRSW_EXT_DEQ+3 
010C 466 ASSUME XABSW_RFI EQ XAB$B_AID+1 
019¢ 467 ASSUME RJRSWIEXT_RFI EQ RJRSB_EXT_AID+1 
01 23 AA 91 O10C 469 CMPB IFBSB_ORGCASE(R10) ,MIFBSC_REL ; relative file? 
13. 13 #0110 470 BEQL 12$ ; branch if so - Ha possible XAB 
56 DS 0112 471 TSTL R6 : is there an XABALL? 
OF 13 0114 ar¢ BEQL 12$ : if EQL no, no XABALL 
3€ BB 0116 47 PUSHR #*M<R1,R2,R3,R4,R5> 3 Save regs epetrorat by MOVC3 
0118 47% SSB #RIRSV_EXT_USE_XAB,RJRSL_EXT_FLAGS(R3) ; say to use XAB 
16 28 O11D 475 MOVC3) #<RJRST_EXT_ENBDALL-RJRS$B_EXT-AOP>,- ; size of info we want 
64 A308 A6 O11F 476 XAB$B_AOP(RS) ,RURSB_EXT_AOP(R3) ; fill in RJR from XAB 
3E BA 0123 477 POPR #*M<RT,R2,R3,R4,R5> : restore regs destroyed by MOVC3 
1¢ ad C1 0125 478 12$: ADDL FIBSL_EXVEN(RG) | : fill in real extend result + 1 
6C A3 012A 480 JRSL-EXT_ALQ(R3) 
6C AS D7 O12C 481 DECL RJRSL_EXT_ ALQ(R3) ; correct value to get real HBK 
Q0000000'EF 16 Oigt 482 J RMSWRITE AJB ;_write the {at entry is 
0135 483 CSB #RIRSV_ERT_USE_XAB,RJRSL_EXT_FLAGS(R35) ; re-initialize 
OOSC 8F BA O13A 484 POPR #*M<R27R3,R4,RE> 3; restore work registers 
05 O13E 485 15$: RSB 3; return status to caller 
OIF 486 
013F 487 208: 
ei 
3; Intialize the ‘ 
\ : aay Intiali he EXTEND MJB 
10 AS 7A 8F 98 O13F 136 MOVZBW #RJRSC_EXTLEN,MJBSW_SIZE(R5) ; size of entry to write 
0 AS 01 90 0144 49 MOVB #RIRSC_VER1,RJRSB_VERSION(R3) =; rms journal ing version 
03 AS 05 90 0148 494 MOVB #RIRSC EXTEND RJRSB_ENTRY_TYPE(RS) ; type is EXTEND 
04 A3 23 AA 14€ 96495 MOVB 1FBSB_ORGCASE (R10) ,RJRSB QRGCRS) ; file organization 
05 a3. OA 9 151 £36 MOVB #RIRS_EXTEND ,RJRSB_OPER(R3) ; its an EXTEND - superfluous 
51 38 AA 00 0155 49 OVL IFBSL~FWA_PTR(R10)—R1 : get FWA address 
3E BB 159 498 PUSHR #*M<RT,R27R3,R4,R5> ; save regs destroyed by MOVC3 
08 AS 0920 C1 1C 138 499 mMOVCS #EWASS _JNCID .FUAST JNLID(R1) ,RIRST_JNLID(RS) ; set up JNLID 
3 BA 016 500 OPR #*M<R17R2,R35,R4,R55 ; restore regs destroyed by MOVC 
oc aS 603 «6990 0164 501 MOVB = #CJF$_ AI, AJB$B8_ JNL(RS ; set journal type. 
168 8 SSB JBSV_INIT,MJBSW_FLAGS(R5) > : indicate MJB initialized 
FF98 31 016d 0 BRw $ 3; join common code 


170 58 
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COMMON EXTEND FILE ROUTINE 
RMSJNL_EXTEND = Journal extend operation 
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RMOEXTEND 


d COMMON EXTEND FILE ROUTINE 
Psect synopsis 


16=SEP=1984 00:19:01 YAX/VMS Macro V04-00 Page 1 
BSEp=1984 forcii40 RMS VSRCIAMOEXTEND mars = OS" | 


oman oreseee cosas + 


! ;_Psect synopsis ! 
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PSECT name AL Attributes 
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° . 0000000 ( 3-3 0¢ 0.) NOPIC USR CON ABS LCL NO - NOE XE — aed NOVEC BYTE 
RMSRMSO 00000170 (¢ 368.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR- EXE T NOVEC BYTE 
00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR- EXE RD NOURT NOVEC BYTE 


Initialization 29 00:00:00.09 00:00:01.58 
Command processing 115 00:00:00.64 00:00:05.26 
Pass 1 394 00:00:14.12 00:00:42.01 
Symbol table sort 9 88 OE «Ae 00:00:04.38 
Pass 2 10 00:00:02.65 00:00:07.99 
Symbol table output 13 OF tO On ag Bo + 89 280. 
Psect synopsis output 3 00:00:00.0 00:00:00.0 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 659 00:00:19.79 00:01:01.37 


The working set Limit was 1500 pages. 

79313 bytes (155 pages) of virtual memory were used to buffer the intermediate code. 

There were 80 pages of symbol table space allocated to hold 1539 non-local and 16 local symbols. 
5 source Lines were read in Pass 1, producing 14 object records in Pass 2. 

26 pages of virtual memory were used to define 25 macros. 
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H ; Macro library statistics H 


Macro Library name Macros defined 
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RSET — Sis an 1 14 
“$255$DUA28: MLB; 1 0 

“$255$DUA28: A St A MLB; 2 7 
TOTALS (all Libraries) 21 


1668 GETS were required to define 21 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:RMOEXTEND/OBJ=OBJ$:RMOEXTEND MSRC$:RMOEXTEND/UPDATE=(ENH$:RMOEXTEND) +EXECMLS$/LIB+LIB$:RMS/LIB 
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